﻿Imports System
Imports System.Web
Imports System.Web.UI
Imports DotNetNuke
Namespace NVPortal.Modules.NV_SlideIMG

    Public MustInherit Class Vicentra
        Inherits Entities.Modules.PortalModuleBase

#Region "Controls"
#End Region

#Region "Event Handlers"
        Public Function ReplaceChuoi(ByVal chuoi As String) As String
            Dim convert As String = Global.ReplaceChuoi.bodau(chuoi).Replace(" ", "-")
            Return convert
        End Function
        Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Try
                If Not IsPostBack Then
                    Dim DisplayNumber As String
                    If Settings("NVVideosDisplayNumberSetting") <> "" Then
                        DisplayNumber = Settings("NVVideosDisplayNumberSetting")
                    Else
                        DisplayNumber = "1" ' 1 row and 1 col
                    End If
                    'Cac tin khac cung chuyen muc voi tin nay
                    Dim arrNews As New ArrayList
                    Dim ctlNews As New NV_SlideIMGController
                    arrNews = ctlNews.GetAllShow(PortalId)
                    Me.rptData.DataSource = arrNews
                    Me.rptData.DataBind()
                End If
            Catch ex As Exception
                'Me.imgNews.Visible = False
                ' Exception
                ProcessModuleLoadException(Me, ex)
            End Try
        End Sub
        'Public Function FormatURL(ByVal sitem As String, ByVal strID As String, ByVal strLink As String) As String
        '    Dim i As Integer
        '    If IsNumeric(Settings("NVVideosDisplayPageSetting")) Then
        '        i = Settings("NVVideosDisplayPageSetting")
        '        Return "http://doanhnhanvietnam.org.vn"
        '    Else
        '        Return "http://doanhnhanvietnam.org.vn"
        '    End If
        'End Function

#End Region

#Region "Optional Interfaces"

#End Region


    End Class

End Namespace
